home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1999 Spring / macformat-077.iso / Shareware Plus / Development / Akua Sweets 131 / Akua Sweets Examples / Misc / Alert Timeout Examples next >
Encoding:
Text File  |  1999-03-04  |  641 b   |  18 lines  |  [TEXT/ToyS]
  1. property gasAlertText : {}
  2.  
  3. on run
  4.     automate alerts after 0
  5.     display dialog "Time me out right away!" buttons {"Cancel", "OK"} default button 2
  6.     
  7.     set gasAlertText to automate alerts after 30
  8.     
  9.     activate
  10.     display dialog "Time me out after 30 seconds, dude!" buttons {"OK"}
  11.     
  12.     automate alerts after 60 with pointer jumping
  13.     display dialog "Do you want to keep timeouts of 1 minute active after we quit?" buttons {"Nope", "Yup"} default button 2
  14.     
  15.     if (the button returned of the result is "Nope") then ¬
  16.         set gasAlertText to automate alerts after -1 -- deactivate it and get alert text, comment this line out to keep timeouts active
  17. end run
  18.